home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg2 / g39.bas < prev    next >
BASIC Source File  |  1991-10-18  |  951b  |  33 lines
  1. 100 ' G39 T.WAKAMATSU
  2. 110 CLS:Z=0:CL(1)=7:CL(2)=2:CL(3)=6:CL(4)=4:CL(5)=5:C(6)=0
  3. 130 FOR C=1 TO 6
  4. 140   RESTORE 360:Z=Z+1
  5. 150   FOR I=1 TO 3
  6. 160     READ X(I),Y(I)
  7. 170   NEXT I
  8. 180   T=15/180*3.14159!:T1=30/180*3.14159!
  9. 190   FOR K=1 TO 24
  10. 200     SX=0:SY=0
  11. 210     FOR J=1 TO 3
  12. 220       M1=(X(J)-320)*COS(T)-(Y(J)-240)*SIN(T)+320
  13. 230       N1=(X(J)-320)*SIN(T)+(Y(J)-240)*COS(T)+240
  14. 240       X(J)=M1:Y(J)=N1:SX=SX+M1:SY=SY+N1
  15. 250     NEXT J
  16. 260     GX=SX/3:GY=SY/3
  17. 270     FOR J=1 TO 3
  18. 280       M=(X(J)-GX)*COS(T1)-(Y(J)-GY)*SIN(T1)+GX
  19. 290       N=(X(J)-GX)*SIN(T1)+(Y(J)-GY)*COS(T1)+GY
  20. 300       X(J)=M:Y(J)=N
  21. 310     NEXT J
  22. 320     PSET(X(3),Y(3))
  23. 321     IF INT((K+Z)/3)*3=K+Z THEN F=7 ELSE F=CL(C)
  24. 322     IF CL(C)=0 THEN F=0
  25. 323     FOR I=1 TO 3
  26. 324       LINE-(X(I),Y(I)),PSET,%F
  27. 325     NEXT I
  28. 326     FOR D=1 TO 40:NEXT D
  29. 330   NEXT K
  30. 340   FOR Q=1 TO 5800:NEXT Q
  31. 350 NEXT C
  32. 360 DATA 240,220,120,210,200,40
  33.